﻿Partial Class FileManager
    Public Class UploadManager
        'Private ReadOnly Property DownLoadForm As UploadManagerForm
        '    Get
        '        If _DownLoadForm Is Nothing Then
        '            _DownLoadForm = New UploadManagerForm(Me.Manager)

        '        End If
        '        Return _DownLoadForm
        '    End Get
        'End Property
        'Private Shared _DownLoadForm As UploadManagerForm

        'Public Sub Add(ByVal Item As BI.ExternalLib.FileService.UpLoadManager.Item)
        '    Me.Manager.Items.Add(Item)
        '    Dim dr As  Marmat.Forms.Views.DataGrid.Row = Me.DownLoadForm.BDataGrid1.AddNew
        '    dr("Tag") = Item
        'End Sub

        'Public Sub Start()
        '    Me.Manager.Start()
        'End Sub

        'Private ReadOnly Property Manager As BI.ExternalLib.FileService.UpLoadManager
        '    Get
        '        If _Manager Is Nothing Then
        '            _Manager = New BI.ExternalLib.FileService.UpLoadManager
        '        End If
        '        Return _Manager
        '    End Get
        'End Property
        'Private _Manager As BI.ExternalLib.FileService.UpLoadManager

        'Public Sub ShowDownLoadForm()
        '    Me.DownLoadForm.ShowDialog()
        'End Sub
    End Class
End Class